home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1987 August / 64er_Magazin_87-08_1987_Markt__Technik_de_Side_A.d64 / ls 3 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  488b  |  29 lines
  1. 10 rem kurve mit grafikzeichen
  2. 20 rem
  3. 30 print"[147]"
  4. 40 rem y-achse
  5. 50 for x=1 to 10
  6. 60 print tab(2)"[208]":print tab(2)"[170]"
  7. 70 next x
  8. 80 rem x-achse
  9. 85 print"   ";
  10. 90 for x=1 to 15
  11. 100 print"[183][208]";
  12. 110 next x
  13. 115 rem zeichen in variablenfeld
  14. 120 dim z$(6)
  15. 130 z$(0)="[175]":z$(1)="[210]":z$(2)="[198]":z$(3)="[195]"
  16. 140 z$(4)="[196]":z$(5)="[197]":z$(6)="[183]"
  17. 150 rem kurve zeichnen (sinus)
  18. 160 for x=3 to 33
  19. 165 y=int(60+sin(x/4)*25):rem funktion
  20. 166 if y>140 then y=140
  21. 167 if y<0 then y=0
  22. 170 z=int(y/7)
  23. 180 print""
  24. 190 for q=1 to 21-z:print:next q
  25. 200 v=y-z*7
  26. 210 printtab(x);z$(v)
  27. 220 next x
  28. 230 end
  29.